perm filename ACK.MAC[LSP,JRA] blob sn#349342 filedate 1978-04-19 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.TENPOINT←FALSE
C00006 ENDMK
C⊗;
.TENPOINT←FALSE
.VARIABLE FIRST_PAR,par; <<**********>>
.par←6;<<**********>>
.DEVICE XGP;
.!XGPLFTMAR←200;
.charw←12

.MACRO PAPER_SIZE(X,Y) ⊂ MILL_PAPER_HEIGHT←Y; MILL_PAPER_WIDTH←X; ⊃
.
.VARIABLE PAGE_HEIGHT, PAGE_WIDTH
.
.MACRO MARGINS (εLEFT,εRIGHT,εTOP,εBOTTOM)  ⊂ BEGIN GROUP SELECT 1;
.    IF MILL_PAPER_HEIGHT ≤ 0 THEN MILL_PAPER_HEIGHT←11000;  <<8.5" X 11" DEFAULT>>
.    IF MILL_PAPER_WIDTH  ≤ 0 THEN MILL_PAPER_WIDTH ← 8500;
.
.    BIT_RASTER_WIDTH←(MILL_PAPER_WIDTH*HBPI)/1000;
.    BIT_RASTER_HEIGHT←(MILL_PAPER_HEIGHT*VBPI)/1000;
.
.    IF LEFT ≥ 0 THEN ODDLEFTBORDER←LEFT ELSE ODDLEFTBORDER←1500;
.    IF RIGHT ≥ 0 THEN RIGHTBORDER←RIGHT ELSE RIGHTBORDER←1000;
.    IF TOP ≥ 0 THEN TOPBORDER←TOP ELSE TOPBORDER←1000;
.    IF BOTTOM ≥ 0 THEN BOTTOMBORDER←BOTTOM ELSE BOTTOMBORDER←500;
.
.    EVENLEFTBORDER←ODDLEFTBORDER; XGP_VSP←(MILLSPACING*VBPI)/1000;
.
.    PAGE_WIDTH←(BIT_RASTER_WIDTH-(HBPI*(ODDLEFTBORDER+RIGHTBORDER))/1000)/CHARW
.    PAGE_HEIGHT←(BIT_RASTER_HEIGHT-(VBPI*(TOPBORDER+BOTTOMBORDER))/1000)
.      /(CHARH+XGP_VSP);
.
. hlines←page_height-4;
. wchars←page_width
.
.    PAGE FRAME PAGE_WIDTH WIDE PAGE_HEIGHT HIGH
.    TITLE AREA HEADING LINES 1 TO 2
.    AREA TExT LINES 3 TO 50 << PAGE_HEIGHT-4>>
.    TITLE AREA FOOTING LINE PAGE_HEIGHT
.    PLACE TExT
.    END ⊃;

.area text lines 3 to 47 ;<<**********>>

.HLINES← IF XCRIBL THEN 45 ELSE 53 	<< 49 NUMBER OF LINES/PAGE >>
.WCHARS← IF XCRIBL THEN 81 ELSE 69 	<< 81 NUMBER OF CHARS/LINE >>

.<<margins(1850,1750,1375,1375); >>



.HLINES← IF XCRIBL THEN 47 ELSE 53;	<< NUMBER OF LINES/PAGE >>
.WCHARS← IF XCRIBL THEN 81 ELSE 69;	<< NUMBER OF CHARS/LINE >>
.PAGE FRAME HLINES+2 HIGH WCHARS WIDE;
.<<AREA TEXTER LINES 4 TO 50 CHARS 1 TO WCHARS;>>


.REQUIRE "MACROS" SOURCE_FILE;
.paper_size(0,0);

.margins(1756,1656,1375,1375); 
.turn on "%","#";
.GROUP SKIP 7;
.begin CENTer;select A;
Acknowledgements
.end
.select 1;fill
.GROUP SKIP 6;